home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
MACD 5
/
MACD 5.bin
/
workbench
/
wb
/
czesc_2
/
iconmanager
/
install
< prev
next >
Wrap
Text File
|
1994-02-07
|
2KB
|
98 lines
; Install script for IconManager v37.1
; © 1994 Alex Taylor
; $VER : 7.2.94
(set @default-dest "SYS:WBStartup")
(if (< (/ (getversion) 65536) 37)
(abort "Sorry, you need Kickstart V37+ to use IconManager.")
)
(set destdir
(askdir
(help @askdir-help)
(prompt "Where do you want to install IconManager?")
(default @default-dest)
(newpath)
)
)
(set @default-dest destdir)
(copyfiles
(help @copyfiles-help)
(prompt "Copying IconManager...")
(source "IconManager")
(infos)
(dest @default-dest)
)
(set @doc-dest "SYS:Docs")
(set destdir
(askdir
(help @askdir-help)
(prompt "Where do you want to put the IconManager doc files?")
(default @doc-dest)
(newpath)
)
)
(set @doc-dest destdir)
(copyfiles
(help @copyfiles-help)
(prompt "Copying IconManager doc files...")
(source "")
(dest @doc-dest)
(choices "IconManager.doc" "IconManager.guide")
(infos)
)
(set @icon-dest "SYS:Icons")
(set destdir
(askdir
(help @askdir-help)
(prompt "Where do you want to install the icons?")
(default @icon-dest)
(newpath)
)
)
(set @icon-dest destdir)
(copyfiles
(help @copyfiles-help)
(prompt "Copying icons...")
(source "Icons/")
(pattern "#?.info")
(dest @icon-dest)
)
(copylib
(help @copylib-help)
(prompt "Installing whatis.library to LIBS:")
(source "Libs/whatis.library")
(dest "libs:")
(confirm)
)
(copyfiles
(help @copyfiles-help)
(source "s/FileTypes")
(dest "s:")
(prompt "Copying FileTypes to S:...")
(confirm)
)
(startup "IconManager"
(help @startup-help)
(prompt "Adding lines to S:User-Startup...")
(command "Assign Icons: " @icon-dest "\n")
(command "Makedir RAM:Icons\n")
(command "Copy Icons:#? RAM:Icons QUIET\n")
)
(makeassign "Icons" @icon-dest)